Listing
SET COLOR TO &COLOR2
LISTING
MHELLO
TEMPINDEX
MDESTIN
PRN LPT1 LPT2 FILE
MCATFILTER
MSORTPOSTOTAL
MPRINTPOSTOTAL
Please select <S>ettings first to
setup the destination, categories,
fields and SORT ORDER.
Listing
MPGLEN
MLINENO
MCONT
BUFLEN
MPRECS
MPGLEN
MLINENO
MCONT
MANSWER
BUFLEN
MPRECS
Margins & Page Length
SET COLOR TO &COLOR5
                      Top Margin:    Lines
                   Bottom Margin:    Lines
            Total # lines / page:
# of spaces between print fields:
MCONT
0123456789
0123456789
MPGLEN
MPGLEN
0123456789
Above Information Correct <Y/N> ?
MCONT
MCONT
Margins & Page Length
Listing
MDESTIN
<P>rint to disk file-> 
MOUTFILE
or <C>ancel
Please make sure the printer is on.
<P>rint  or  <C>ancel
MDESTIN
MOUTFILE
Replace ?
SET COLOR TO &COLOR3
File already exists.
<A>dd to the bottom, <R>eplace, or <Q>uit ?
MANSWER
MANSWER
Replace ?
Listing
MANSWER
MANSWER
MOUTFILE
 Locating the end of file. 
BUFLEN
MOUTFILE
MDESTIN
MANSWER
MDESTIN
USE &DATAFILE INDEX &TEMPINDEX
MPRTFILTER
SET FILTER TO &mPRTFILTER .AND. (' '+RIGHT('0'+LTRIM(STR(CATEG,2)),2))$mCATFILTER
CATEG
@II)+d
MCATFILTER
MLINENO
MLINENO
MLINENO
MLINENO
LNAME
TITLE
TITLE
FNAME
)D)+d
@()Fd
@(I'3
CONAME
@()Fd
@(I'3
ADDL1
@()Fd
@(I'3
ADDL2
@()Fd
@(I'3
@()Fd
@(I'3
STATE
@()Fd
@(I'3
ZIP_EXT
d)D)+
@()Fd
@(I'3
PHONE1
(   )   -    
PHONE1
@()Fd
@()Fi
PHONE2
(   )   -    
PHONE2
@d)Fd
@d)Fi
NOTE1
@()Fd
@(I'3
NOTE2
@()Fd
@(I'3
NOTE3
@()Fd
@(I'3
BDATE
@()Fd
@(I'3
MISCDATE
@()Fd
@(I'3
MISCCHAR
@()Fd
@(I'3
NUMINT
@(IA3
NUMREAL
@(IA3
CATEG
@(IA3
MLINENO
MLINENO
MLINENO
MPGLEN
MLINENO
MPGLEN
MLINENO
MPGLEN
MLINENO
MPGLEN
MLINENO
MLINENO
MLINENO
MPGLEN
MLINENO
Number of Records Printed -> 
MPRECS
MPRECS
MPRECS
MLINENO
MPGLEN
MLINENO
MPGLEN
MLINENO
MLINENO
LISTING